inherited frmCashBankStatementEdit: TfrmCashBankStatementEdit
  Left = 474
  Top = 238
  Caption = #38134#34892#23545#36134
  PixelsPerInch = 96
  TextHeight = 12
  object dynlblbookdate: TLabel [0]
    Left = 25
    Top = 21
    Width = 60
    Height = 12
    Caption = #35760#24080#26085#26399#65306
    Transparent = True
  end
  object dynlblremark: TLabel [1]
    Left = 25
    Top = 116
    Width = 60
    Height = 12
    Caption = #25688'    '#35201#65306
    Transparent = True
  end
  object dynLblBillNo: TLabel [2]
    Left = 25
    Top = 52
    Width = 60
    Height = 12
    Caption = #32467' '#31639' '#21495#65306
    Transparent = True
  end
  object dynlbldebitamt: TLabel [3]
    Left = 25
    Top = 85
    Width = 60
    Height = 12
    Caption = #26412#24065#20511#26041#65306
    Transparent = True
  end
  object dynlblRawDebitamt: TLabel [4]
    Left = 21
    Top = 142
    Width = 60
    Height = 12
    Caption = #21407#24065#20511#26041#65306
    Transparent = True
    Visible = False
  end
  object dynlblbalanceid: TLabel [5]
    Left = 274
    Top = 21
    Width = 60
    Height = 12
    Caption = #32467#31639#26041#24335#65306
    Transparent = True
  end
  object dynlblCreditamt: TLabel [6]
    Left = 274
    Top = 85
    Width = 60
    Height = 12
    Caption = #26412#24065#36151#26041#65306
    Transparent = True
  end
  object dynlblRawCreditamt: TLabel [7]
    Left = 270
    Top = 142
    Width = 60
    Height = 12
    Caption = #21407#24065#36151#26041#65306
    Transparent = True
    Visible = False
  end
  inherited pnlBottom: TPanel
    TabOrder = 6
    inherited btnOK: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnCancel: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnContinue: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnPri: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
    inherited btnNext: TBitBtn
      Top = 20
      ExplicitTop = 20
    end
  end
  object dynedtBdate: TcxDBDateEdit [9]
    Left = 90
    Top = 17
    DataBinding.DataField = 'bdate'
    DataBinding.DataSource = MainDataSource
    TabOrder = 0
    Width = 145
  end
  object dynedtdcDebitamt: TcxDBCurrencyEdit [10]
    Left = 86
    Top = 138
    TabOrder = 7
    Visible = False
    Width = 145
  end
  object dynedtDebitamt: TcxDBCurrencyEdit [11]
    Left = 90
    Top = 81
    DataBinding.DataField = 'debitamt'
    DataBinding.DataSource = MainDataSource
    TabOrder = 3
    Width = 145
  end
  object dynedtdcCreditamt: TcxDBCurrencyEdit [12]
    Left = 330
    Top = 138
    TabOrder = 8
    Visible = False
    Width = 145
  end
  object dynedtCreditamt: TcxDBCurrencyEdit [13]
    Left = 334
    Top = 81
    DataBinding.DataField = 'creditamt'
    DataBinding.DataSource = MainDataSource
    TabOrder = 4
    Width = 145
  end
  object dynedtremark: TcxDBTextEdit [14]
    Left = 90
    Top = 112
    DataBinding.DataField = 'remark'
    DataBinding.DataSource = MainDataSource
    TabOrder = 5
    Width = 390
  end
  object dynedtBalanceid: TcxDBLookupComboBox [15]
    Tag = 15
    Left = 334
    Top = 17
    DataBinding.DataField = 'balanceid'
    DataBinding.DataSource = MainDataSource
    Properties.ListColumns = <>
    TabOrder = 1
    Width = 145
  end
  object dynedtBillNo: TcxDBTextEdit [16]
    Left = 90
    Top = 48
    DataBinding.DataField = 'billno'
    DataBinding.DataSource = MainDataSource
    TabOrder = 2
    Width = 145
  end
  inherited MainDataSource: TDataSource
    DataSet = MainDataSet
    Top = 74
  end
  inherited qryDynDtl: TUniQuery
    Top = 22
  end
  object MainDataSet: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tft_cashBank'
      
        '  (bankbookid, bankid, balanceid, bdate, billno, debitamt, credi' +
        'tamt, checked, cleared, initflag, remark, sourceflag, create_by,' +
        ' check_time, create_time, update_time, filid)'
      'VALUES'
      
        '  (:bankbookid, :bankid, :balanceid, :bdate, :billno, :debitamt,' +
        ' :creditamt, :checked, :cleared, :initflag, :remark, :sourceflag' +
        ', :create_by, :check_time, :create_time, :update_time, :filid)')
    SQLDelete.Strings = (
      'DELETE FROM tft_cashBank'
      'WHERE'
      '  bankbookid = :Old_bankbookid')
    SQLUpdate.Strings = (
      'UPDATE tft_cashBank'
      'SET'
      
        '  bankbookid = :bankbookid, bankid = :bankid, balanceid = :balan' +
        'ceid, bdate = :bdate, billno = :billno, debitamt = :debitamt, cr' +
        'editamt = :creditamt, checked = :checked, cleared = :cleared, in' +
        'itflag = :initflag, remark = :remark, sourceflag = :sourceflag, ' +
        'create_by = :create_by, check_time = :check_time, create_time = ' +
        ':create_time, update_time = :update_time, filid = :filid'
      'WHERE'
      '  bankbookid = :Old_bankbookid')
    SQLLock.Strings = (
      'SELECT * FROM tft_cashBank'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  bankbookid = :Old_bankbookid')
    SQLRefresh.Strings = (
      
        'SELECT bankbookid, bankid, balanceid, bdate, billno, debitamt, c' +
        'reditamt, checked, cleared, initflag, remark, sourceflag, create' +
        '_by, check_time, create_time, update_time, filid FROM tft_cashBa' +
        'nk'
      'WHERE'
      '  bankbookid = :Old_bankbookid')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select A.daybookid,A.explan,A.bookdate,A.PAYMETHODID,'
      'A.paymethoddate,A.bno,A.takeman,'
      'A.creditamt,A.debitamt,A.create_by,A.Accountid,'
      'A.ACCFLAG,A.BANKFLAG,A.INITFLAG,A.voucherno,a.dodebit,'
      'A.vouwordID,A.SUBJECTCODE,A.SOURCEFLAG,A.TAX,'
      'B.NAME+'#39'-'#39'+cast(A.voucherno as varchar(100)) AS vouwordtype,'
      'a.tax*a.debitamt as ForeignDebit, '
      'a.Tax*a.creditamt as ForeignCred,'
      '0.00 as Balance,0.00 AS FOREIGNBalance'
      '  from tft_cashDayBook A '
      '  left outer join tfd_vouword B on A.vouwordID =B.ID '
      '  where A.Accountid=:accountid AND A.InitFlag=:initflag'
      '  order by A.bookdate,a.daybookid')
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 8
    Top = 90
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'accountid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'initflag'
        Value = nil
      end>
  end
end
